Importou-se os dados de Ivestimento Estrangeiro Direto, coletados pelo FMI, com atuaização para o ano de 2018( em dólares).Em conjunto foram incorporadas as informações dos Relatórios Doing Business do Banco mundial. Todas as informações são do mesmo pacote.
Em relação as informações do Doing Business, como houve mudança de metodologia as informações estavam em bases diferente e também foram incorporadas a uma mesma base de dados
#WDIsearch("Foreign direct investment")
#WDIsearch("Doing Business")
pdi_pib <- WDI( indicator = "BX.KLT.DINV.WD.GD.ZS")
FDI <- WDI( indicator = c("IC.BUS.EASE.DFRN.XQ.DB1719","IC.BUS.EASE.DFRN.DB16","IC.BUS.EASE.DFRN.DB15", "IC.BUS.EASE.DFRN.DB1014", "BX.KLT.DINV.WD.GD.ZS", "BX.KLT.DINV.CD.WD" ),start=2010, end= 2018, extra = TRUE)
FDI <- FDI %>%
rename(DB17_19 = IC.BUS.EASE.DFRN.XQ.DB1719, DB16 = IC.BUS.EASE.DFRN.DB16, DB15 = IC.BUS.EASE.DFRN.DB15, B10_14 = IC.BUS.EASE.DFRN.DB1014, fdi = BX.KLT.DINV.CD.WD, fdi_pib = BX.KLT.DINV.WD.GD.ZS)
# junção das metodologias, pois estavam em bases diferentes
FDI$metodologia <- coalesce(FDI$DB17_19,FDI$DB16)
FDI$metodologia2 <- coalesce(FDI$metodologia,FDI$DB15)
FDI$db <- coalesce(FDI$metodologia2,FDI$B10_14)
FDI <- FDI %>%
select(iso2c, country, year,fdi_pib, fdi, iso3c, region, longitude, latitude, income, lending, db)
FDI_0 <- FDI %>%
mutate(log_fdi = log(fdi), db = round(db,2)) %>%
filter(year >= 2014)
FDI <- FDI %>%
mutate(log_fdi = log(fdi), db = round(db,2)) %>%
filter(year >= 2014) %>%
na.omit()
Média da Pontuação do Indicador Por região.
Observação: a Definição de Região foi estabelecida na própria base de dados fornecida
tabela1 <- FDI %>%
rename(`Região` = region) %>%
group_by(`Região`) %>%
summarise(` Média da Pontuação` = round(mean(db),2)) %>%
kable(caption = "Doing Business Por Região") %>%
kable_styling(bootstrap_options = c("striped", "hover"))
tabela1
| Região | Média da Pontuação |
|---|---|
| East Asia & Pacific | 63.42 |
| Europe & Central Asia | 71.86 |
| Latin America & Caribbean | 59.36 |
| Middle East & North Africa | 60.44 |
| North America | 81.40 |
| South Asia | 52.90 |
| Sub-Saharan Africa | 49.92 |
FDI2018 <- FDI %>%
filter(year == 2018)
G0 <- FDI2018 %>%
ggplot(aes(x = db , y =log_fdi))+
geom_smooth(method = "lm", se = FALSE)+
geom_point(aes(color = income))+
labs(
title = " Relação FDI e DB para o ano de 2018",
x = 'Doing Business',
y = 'Foreign Direct Investment (FDI)',
color= "Income"
)+
theme_hc()
G0
## Warning: Removed 1 rows containing non-finite values (stat_smooth).
G1 <- FDI2018 %>%
ggplot(aes(x = db , y =log_fdi))+
geom_smooth(method = "lm", se = FALSE)+
geom_text(aes(label=ifelse(country %in% c("Brazil", "China", "India", "Russian Federation", "South Africa"),as.character(country),'')), color = "black", vjust = -1, hjust = 0)+
geom_point(data=FDI2018[FDI2018$country %in% c("Brazil", "China", "India", "Russian Federation", "South Africa"),], size = 3)+
geom_point(aes(color = income))+
labs(
title = "Relação FDI e DB para o ano de 2018",
subtitle = "PaÃses que Compõem os Brics",
x = 'Doing Business',
y = 'Foreign Direct Investment (FDI)',
color= "Income"
)+
theme_economist()
G1
## Warning: Removed 1 rows containing non-finite values (stat_smooth).
G2 <- FDI2018 %>%
ggplot(aes(x = db , y =log_fdi, color = country))+
geom_point(size = 3)+
gghighlight(country %in% c("Brazil", "China", "India", "Russian Federation", "South Africa"))+
geom_smooth(method = "lm", se = FALSE)+
labs(
title = " Destaques Relação FDI e DB para o ano de 2018",
subtitle = "PaÃses que Compõem os Brics",
x = 'Doing Business',
y = 'Foreign Direct Investment (FDI)'
)
## label_key: country
G2
G3 <- FDI %>%
filter(year == 2018) %>%
ggplot(aes(x = db , y =log_fdi, label = country ))+
geom_smooth(method = "lm", se = FALSE)+
geom_point(aes(color = region), size = 3)+
labs(
title = " Relação FDI e DB por região para o ano de 2018",
x = 'Doing Business',
y = 'Foreign Direct Investment (FDI)',
color= "Income"
)+
theme(legend.position = "bottom")
G3
## Warning: Removed 1 rows containing non-finite values (stat_smooth).
###
G4 <- FDI_0 %>%
filter(!is.na(region), region != "Aggregates") %>%
ggplot(aes(x = db , y =log_fdi, color = income))+
geom_point()+
transition_time(year) +
geom_text(aes(label=ifelse(country %in% c("Brazil", "China"),as.character(country),'')), color = "black")+
labs(title = 'Year: {frame_time}',
x = 'Doing Business',
y = 'Foreign Direct Investment (FDI)',
color= "Income"
)+
ease_aes('linear')
G4